
clc;clear;
for n = 1000:10000
filename = num2str(n);
dir_1=['E:\GIPL2\GIPL\FILE\in\',filename]
mkdir(dir_1);
copyfile('D:\test\new',dir_1);
copyfile('bound.txt',dir_1);
copyfile('grid.txt',dir_1);
copyfile('initial.txt',dir_1);
copyfile('mineral.txt',dir_1);
 copyfile('organic.txt',dir_1);
 copyfile('rsnow.txt',dir_1);
 copyfile('sites.txt',dir_1);
 copyfile('snow.txt',dir_1);
end

